home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / SCH110B.ZIP;1 / README.PRG < prev    next >
Encoding:
Text File  |  1993-02-25  |  2.6 KB  |  81 lines
  1. *****
  2. * Readme.prg/run file to display the introductory docs & general docs
  3. * for Schooner
  4. *****
  5. *****
  6. * Set defaults
  7. *****
  8. clearscrn()
  9. setscorebd(.f.)
  10. setcolor("w+/b,w+/bg,gr+,b,gr+/b")
  11. setcursor(.t.)
  12. setbell(.t.)
  13. setconfirm(.t.)
  14. setdeleted(.f.)
  15. superbox(00,00,24,79,.t.,"≤",.f.)
  16. superbox(05,10,19,70,.f.,"",.t.)
  17. superbox(07,11,07,69,.f.,"",.f.)
  18. superbox(17,11,17,69,.f.,"",.f.)
  19. mvkey=0
  20. say(06,29,"Schooner Documentation")
  21. say(18,16,"Highlight selection and press ENTER. ESC to exit.")
  22. do while .t.
  23.     setcursor(.f.)
  24.     setwrap(.t.)
  25.     setmessage(23,"center")
  26.     mvchoice=0
  27.     prompt(10,11,"              Schooner README Documentation                ","        Introduction to Schooner        ")
  28.     prompt(11,11,"             Schooner General  Documentation               ","       General Schooner  Concepts       ")
  29.     prompt(12,11,"           Print README & General Documentation            ","                                        ") 
  30.     prompt(13,11,"       Print Complete Command/Function Documentation       ","    Entire help system documentation    ")
  31.     menuto("mvchoice")
  32.     mvmainscrn=savescreen(0,0,24,79)
  33.     if mvchoice=0
  34.         exit
  35.     endif
  36.     if mvchoice=1
  37.         superbox(00,00,24,79,.t.,"≤",.f.)
  38.         superbox(03,03,21,76,.f.,"",.t.)
  39.         say(03,35,"README.DOC")
  40.         say(21,23,"Cursor keys to scroll. ESC to exit.")
  41.         setcursor(.t.)
  42.         memoedit(memoread("readme.doc"),04,04,20,75,.f.)
  43.         setcursor(.f.)
  44.     endif
  45.     if mvchoice=2
  46.         superbox(00,00,24,79,.t.,"≤",.f.)
  47.         superbox(03,03,21,76,.f.,"",.t.)
  48.         say(03,35,"GENERAL.DOC")
  49.         say(21,23,"Cursor keys to scroll. ESC to exit.")
  50.         setcursor(.t.)
  51.         memoedit(memoread("general.doc"),04,04,20,75,.f.)
  52.         setcursor(.f.)
  53.     endif
  54.     if mvchoice=3
  55.         superbox(00,00,24,79,.t.,"≤",.f.)
  56.         mvkey=message("The documentation will print to LPT1: on standard 8.5 x 11 paper.","   ESC to cancel   Any key to continue")
  57.         if mvkey=27
  58.             mvmainscrn=restscreen(0,0,24,79,mvmainscrn)
  59.             loop
  60.         endif
  61.         setconsole(.f.)
  62.         setoutput("lpt1")
  63.         setprint(.t.)
  64.         mvtext=memoread("readme.doc")
  65.         output("mvtext")
  66.         eject
  67.         mvtext=memoread("general.doc")
  68.         output("mvtext")
  69.         eject
  70.         setprint(.f.)
  71.         setconsole(.t.)        
  72.     endif
  73.     if mvchoice=4
  74.         do readprn
  75.     endif
  76.     mvmainscrn=restscreen(0,0,24,79,mvmainscrn)
  77. enddo
  78. message("Thank you for reading the SCHOONER documentation.")
  79. setcursor(.t.)
  80. quit
  81.